﻿Namespace Player.Skills

    Module mSkills

        Dim lstSkills As SortedDictionary(Of Byte, PlayerSkill)

        Dim lstMappings(3) As SortedDictionary(Of SkillKey, PlayerSkillMapping)


        Public Sub AddSkill(ByRef skill As PlayerSkill)

            If lstSkills.ContainsKey(skill.BYTE_SKILL) Then
                UpdateSkill(skill)

            Else

                lstSkills.Add(skill.BYTE_SKILL, skill)

            End If

        End Sub

        Public Sub UpdateSkill(ByRef skill As PlayerSkill)

            If lstSkills.ContainsKey(skill.BYTE_SKILL) Then
                lstSkills.Remove(skill.BYTE_SKILL)
                lstSkills.Add(skill.BYTE_SKILL, skill)
            End If

        End Sub



    End Module

End Namespace